home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
TSR
/
TPPOP18C
/
UPPRCASE.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-11-02
|
486b
|
30 lines
.MODEL TPASCAL
.CODE
LOCALS @@
PUBLIC uppercase
UpperCase PROC FAR USES DS,line:DWORD
cld
lds si,line
mov cl,[si]
xor ch,ch
jcxz @@3
@@1:
inc si
cmp byte ptr [si],'a'
jb @@2
cmp byte ptr [si],'z'
ja @@2
sub byte ptr [si],20h
@@2:
loop @@1
@@3:
ret
UpperCase ENDP
END